From d90f825cd859f9593dd19a0933e0f7a8bb317d3c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 13 Jun 1993 01:36:48 +0000 Subject: [PATCH] (finder-find-library): New function. (finder-commentary): Use it. --- lisp/finder.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/finder.el b/lisp/finder.el index 41e67723dde..44df466d7c6 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -187,9 +187,23 @@ arguments compiles from `load-path'." (shrink-window-if-larger-than-buffer) (finder-summary))) +;; Search for a file named FILE the same way `load' would search. +(defun finder-find-library (file) + (if (file-name-absolute-p file) + file + (let ((dirs load-path) + found) + (while (and dirs (not found)) + (if (file-exists-p (expand-file-name (concat file ".el") (car dirs))) + (setq found (expand-file-name file (car dirs))) + (if (file-exists-p (expand-file-name file (car dirs))) + (setq found (expand-file-name file (car dirs))))) + (setq dirs (cdr dirs))) + found))) + (defun finder-commentary (file) (interactive) - (let* ((str (lm-commentary file))) + (let* ((str (lm-commentary (finder-find-library file)))) (if (null str) (error "Can't find any Commentary section.")) (pop-to-buffer "*Finder*") -- 2.30.2